(defun C:NORM ()
  (defun approx (x)
    (if (not (null x))
      (/ (float (fix (* x 1000))) 1000)
    )
  )

  (setq entity (entnext))
  (while entity
    (setq ent (entget entity))
    (setq start (list (approx (cadr (assoc 10 ent)))
                      (approx (caddr (assoc 10 ent)))
                      (approx (cadddr (assoc 10 ent)))
                )
    )
    (setq end (list (approx (cadr (assoc 11 ent)))
                    (approx (caddr (assoc 11 ent)))
                    (approx (cadddr (assoc 11 ent)))
              )
    )
    (setq rad (approx (cdr (assoc 40 ent))))

    (setq ent (subst (cons '10 start) (assoc 10 ent) ent))
    (setq ent (subst (cons '11 end) (assoc 11 ent) ent))
    (setq ent (subst (cons '40 rad) (assoc 40 ent) ent))

    (entmod ent)
    (setq entity (entnext entity))
  )
  (princ)
)